home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / REPEAT.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  465 b   |  22 lines
  1. :repeat.scr
  2.  
  3. clear 15
  4. cursor 2 16
  5. if accuracy 2 >= pass cursor 19 16
  6. print 'Your accuracy for this lesson was 
  7. accuracy 2
  8. print '%.
  9. if accuracy 2 < pass print ' I suggest you do the lesson again.
  10. CURSOR 13 18
  11. print 'If you want to repeat the last lesson then press R.
  12. hkey 'r
  13. cursor 17 20
  14. print 'Otherwise press the SPACE BAR to continue...
  15. hkey ' 
  16.  
  17. :wait_for_space
  18. wait -
  19. if key ! 32 if key ! r if key ! R goto wait_for_space
  20. bkey 'r
  21. bkey ' 
  22.